home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / omed_pt.lha / rexx / f8.omed < prev    next >
Text File  |  1995-11-25  |  684b  |  37 lines
  1. /* F8 - Case 28-10-95 */
  2.  
  3. address OCTAMED_REXX
  4. options results
  5.  
  6. call open("f_keys","T:f_keys.omedtemp",R)
  7. f6 = readln("f_keys")
  8. f7 = readln("f_keys")
  9. f8 = readln("f_keys")
  10. call close("f_keys")
  11.  
  12. 'rn_isranged var rn_state'
  13.  
  14. if rn_state = 0
  15.     then do
  16.         'ed_goto line' f8
  17.         exit
  18.     end
  19. else
  20.     call open("rn_begin","T:rn_begin.omedtemp",R)
  21.     rn_begin = readln("rn_begin")
  22.     call close("rn_begin")
  23.  
  24.     'ed_goto line' f8
  25.     'ed_getcurrtrack var currtrack'
  26.  
  27.     if f8 >= rn_begin
  28.         then do
  29.             rnstartline = rn_begin
  30.             rnendline = f8
  31.         end
  32.         else do
  33.             rnstartline = f8
  34.             rnendline = rn_begin
  35.         end
  36.     'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline
  37. exit